home *** CD-ROM | disk | FTP | other *** search
- (welcome "Willkommen zum Installationshilfsmittel für AssignMaster.")
-
- (if (= (askbool (prompt "A C H T U N G !\n\n"
- "Eine ältere Version des AssignMasters "
- "solle (eingeschlossen aller Sicherungsdateien) "
- "zuvor aus dem System entfernt werden.\n\n"
- "Soll mit der installation fortgefahren werden?")
- (help @askbool-help)
- (default 1)
- ) 0)
- (
- (exit (cat "\n\nDer Benutzer hat die Installation abgebrochen."
- "Es wirden keine Dateien kopiert.")
- (quiet)
- )
- )
- )
-
- (set #destination_prg (askdir (prompt "Bitte wähle jetzt das Zielverzeichnis "
- "für die Programmdatei.")
- (help @askdir-help)
- (default "SYS:Tools")
- )
- )
-
-
- (set #destination_doc (askdir (prompt "Wohin soll die Dokumentation "
- "kopiert werden?")
- (help @askdir-help)
- (default "HELP:")
- )
- )
-
- (set #libcopy (askbool (prompt "Soll die Support-Bibliothek für AssignMaster "
- "installiert werden?\n\nSie wird nur für die "
- "Handhabung der Startup-Dateien benötigt. Dieses "
- "Feature arbeitet allerdings noch nicht korrekt!")
- (help @askbool-help)
- (default 0)
- )
- )
-
- (copyfiles (prompt "Kopiere Programmdatei...")
- (help @copyfiles-help)
- (source "/AssignMaster")
- (dest #destination_prg)
- (files)
- (confirm)
- (infos)
- )
-
- (copyfiles (prompt "Kopiere Dokumentation...")
- (help @copyfiles-help)
- (source "/docs/AM_Eng.GUIDE")
- (dest #destination_doc)
- (newname "AssignMaster.guide")
- (files)
- (confirm)
- (infos)
- )
-
- (copyfiles (prompt "Kopiere Programmgeschichte...")
- (help @copyfiles-help)
- (source "/docs/AM_History.txt")
- (dest #destination_doc)
- (newname "AssignMaster.History")
- (files)
- (infos)
- (confirm)
- )
-
- (if (= 1 #libcopy)
-
- (copylib (prompt "Kopiere Support-Bibliothek...")
- (help @copyfiles-help)
- (source "/libs/amsupport.library")
- (dest "LIBS:")
- )
- )
-
- (if (= 1 (askbool (prompt "Soll die aktuelle Assign-Liste jetzt gesichert "
- "werden?")
- (help @askbool-help)
- (default 0)
- (choices "Ja" "Nein")
- )
- )
- (
- (set #savefile (askfile (prompt "Bitte wähle jetzt den Namen (und Pfad)"
- " der anzulegenden Sicherungsdatei:")
- (help @askfile-help)
- (default #destination_prg)
- )
- )
- (set #amcommand (cat (tackon #destination_prg "AssignMaster")
- " BACKUP=\""
- #savefile
- "\"")
- )
- (run #amcommand (prompt (cat "Speichere Assign-Liste in Datei:\n"
- #savefile)
- )
- (help @run-help)
- (confirm)
- )
- )
- )
-
- (exit (cat "Installation beendet.\n\n")
- (quiet)
- )
-
-
-